From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 23 Feb 2024 10:26:45 +0000 (+0100)
Subject: * src/fns.c (sxhash_bignum): Include sign bit in hash.
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2460
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=6a53836a245a8154f1f176ce2a787c24aa7409cb;p=emacs.git

* src/fns.c (sxhash_bignum): Include sign bit in hash.
---

diff --git a/src/fns.c b/src/fns.c
index 737757d06cc..550545d1486 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -5193,7 +5193,7 @@ sxhash_bignum (Lisp_Object bignum)
 {
   mpz_t const *n = xbignum_val (bignum);
   size_t i, nlimbs = mpz_size (*n);
-  EMACS_UINT hash = 0;
+  EMACS_UINT hash = mpz_sgn(*n) < 0;
 
   for (i = 0; i < nlimbs; ++i)
     hash = sxhash_combine (hash, mpz_getlimbn (*n, i));